From: Eric S. Raymond <esr@snark.thyrsus.com>
Date: Sat, 27 Mar 1993 01:58:20 +0000 (+0000)
Subject: (undo-with-space) Added.  C-x C-u now bound to this rather than undo.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96683
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=43713c76d373d081595f67aad7b693f49e6854b3;p=emacs.git

(undo-with-space) Added.  C-x C-u now bound to this rather than undo.
This change was inspired by the LCD package undo-with-space by Thomas
Narten, but my code is simpler and uses the 19 event features.
---

diff --git a/lisp/gosmacs.el b/lisp/gosmacs.el
index 93bbbaa5b80..359ea1cc344 100644
--- a/lisp/gosmacs.el
+++ b/lisp/gosmacs.el
@@ -46,7 +46,7 @@ Use \\[set-gnu-bindings] to restore previous global bindings."
 	   ("\C-x\C-n" next-error)
 	   ("\C-x\C-o" switch-to-buffer)
 	   ("\C-x\C-r" insert-file)
-	   ("\C-x\C-u" undo)
+	   ("\C-x\C-u" undo-with-space)
 	   ("\C-x\C-v" find-file-other-window)
 	   ("\C-x\C-z" shrink-window)
 	   ("\C-x!" shell-command)
@@ -114,4 +114,21 @@ From the window at the lower right corner, select the one at the upper left."
   (interactive)
   (recenter 0))
 
+(defun undo-with-space ()
+  "Enter an undo loop that continues while you type SPC characters.  Exit
+with ESC; any other character exits and begins a new command."
+  (interactive)
+  (undo-start)
+  (undo-more 1)
+  (message "Hit <space> to undo more")
+  (let ((event 32))
+    (while (equal event 32)
+      (message "undoing..")
+      (undo-more 1)
+      (message "Hit <space> to undo more")
+      (setq event (read-event)))
+    (message "Finished undoing.")
+    (if (not (equal event 27))
+	(setq unread-command-event event))))
+
 ;;; gosmacs.el ends here